home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / select-to-brush.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  4.1 KB  |  129 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; Selection-to-brush 
  5. ; Copyright (c) 1997 Adrian Likins
  6. ; aklikins@eos.ncsu.edu
  7. ;
  8. ; Takes the current selection, saves it as a brush, and makes it the
  9. ; active brush..
  10. ;
  11. ;       Parts of this script from Sven Neuman's Drop-Shadow and 
  12. ;       Seth Burgess's mkbrush scripts.
  13. ;
  14. ; This program is free software; you can redistribute it and/or modify
  15. ; it under the terms of the GNU General Public License as published by
  16. ; the Free Software Foundation; either version 2 of the License, or
  17. ; (at your option) any later version.
  18. ; 
  19. ; This program is distributed in the hope that it will be useful,
  20. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22. ; GNU General Public License for more details.
  23. ; 
  24. ; You should have received a copy of the GNU General Public License
  25. ; along with this program; if not, write to the Free Software
  26. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  27.  
  28.  
  29. (define (script-fu-selection-to-brush image
  30.                                       drawable
  31.                                       name
  32.                                       filename
  33.                                       spacing)
  34.   (let* ((type (car (gimp-drawable-type-with-alpha drawable)))
  35.      (selection-bounds (gimp-selection-bounds image))
  36.      (select-offset-x  (cadr selection-bounds))
  37.      (select-offset-y  (caddr selection-bounds))
  38.      (selection-width  (- (cadr (cddr selection-bounds))  select-offset-x))
  39.      (selection-height (- (caddr (cddr selection-bounds)) select-offset-y)))
  40.  
  41.     (gimp-context-push)
  42.  
  43.     (gimp-image-undo-disable image)
  44.     
  45.     (if (= (car (gimp-selection-is-empty image)) TRUE)
  46.     (begin
  47.       (gimp-selection-layer-alpha drawable)
  48.       (set! from-selection FALSE))
  49.     (begin
  50.       (set! from-selection TRUE)
  51.       (set! active-selection (car (gimp-selection-save image)))))
  52.  
  53.     (gimp-edit-copy drawable)
  54.  
  55.     (set! brush_draw_type
  56.           (if (= type GRAYA-IMAGE)
  57.               GRAY-IMAGE
  58.               RGBA-IMAGE))
  59.  
  60.     (set! brush_image_type
  61.           (if (= type GRAYA-IMAGE)
  62.               GRAY
  63.               RGB))
  64.  
  65.     (set! brush-image (car (gimp-image-new selection-width
  66.                                            selection-height
  67.                                            brush_image_type)))
  68.  
  69.     (set! brush-draw
  70.           (car (gimp-layer-new brush-image
  71.                                selection-width
  72.                                selection-height
  73.                                brush_draw_type
  74.                                "Brush"
  75.                                100
  76.                                NORMAL-MODE)))
  77.  
  78.     (gimp-image-add-layer brush-image brush-draw 0)
  79.  
  80.     (gimp-selection-none brush-image)
  81.  
  82.     (if (= type GRAYA-IMAGE)
  83.         (begin 
  84.           (gimp-context-set-background '(255 255 255))
  85.           (gimp-drawable-fill brush-draw BACKGROUND-FILL))
  86.         (gimp-drawable-fill brush-draw TRANSPARENT-FILL))
  87.  
  88.     (let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
  89.       (gimp-floating-sel-anchor floating-sel))
  90.  
  91.     (set! filename2 (string-append gimp-directory
  92.                    "/brushes/"
  93.                    filename
  94.                    (number->string image)
  95.                    ".gbr"))
  96.  
  97.     (file-gbr-save 1 brush-image brush-draw filename2 "" spacing name)
  98.  
  99.     (if (= from-selection TRUE)
  100.     (begin
  101.       (gimp-selection-load active-selection)
  102.       (gimp-image-remove-channel image active-selection)))
  103.  
  104.     (gimp-image-undo-enable image)
  105.     (gimp-image-set-active-layer image drawable)
  106.     (gimp-image-delete brush-image)
  107.     (gimp-displays-flush)
  108.  
  109.     (gimp-context-pop)
  110.  
  111.     (gimp-brushes-refresh)
  112.     (gimp-context-set-brush name)))
  113.  
  114. (script-fu-register "script-fu-selection-to-brush"
  115.             _"To _Brush..."
  116.             "Convert a selection to a brush"
  117.             "Adrian Likins <adrian@gimp.org>"
  118.             "Adrian Likins"
  119.             "10/07/97"
  120.             "RGB* GRAY*"
  121.             SF-IMAGE       "Image"       0
  122.             SF-DRAWABLE    "Drawable"    0
  123.             SF-STRING     _"Brush name"  "My Brush"
  124.             SF-STRING     _"File name"   "mybrush"
  125.             SF-ADJUSTMENT _"Spacing"     '(25 0 1000 1 1 1 0))
  126.  
  127. (script-fu-menu-register "script-fu-selection-to-brush"
  128.              _"<Image>/Script-Fu/Selection")
  129.